home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programmer Power Tools
/
Programmer Power Tools.iso
/
tex
/
webtp55.arc
/
INLASM.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-11-22
|
492b
|
26 lines
Program InlAsm;
{-implement an inline assembler using Asm2Inl}
Uses
Asm2Inl;
Var
i: Word;
s: String;
Begin
SetupAsm;
While Not Eof(Input) Do Begin
ReadLn(Input,s);
s:= s+'/';
For i:= 1 To Length(s) Do
if Not FeedAsm(s[i]) Then Begin
WriteLn('! too much data');
Halt(1)
End
End;
If Not DoAsm(True) Then
WriteLn('! Error during assembling!');
For i:= 0 To ObjSize-1 Do
Write(Output,TextArray[i]);
End.